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Program Conversion Procedures 

Older versions of certain Radio Shack Model I software packages require program 
changes before use on the Model 111 computer. These programs are: 

Cassette Portfolio (26-1506) 
Budget Management (26-1603) 
Tape Mailing List (26rl503) 
Real Estate Volume III (26-1573) 
Real Estate Volume IV (26-1574) 
Level II Basic Instruction Course - 
Dancing Demon (26-1911) 
Casino Games (26-1806) 



Part II (26-2006) 



Current versions do not require changes. 



The following programs cannot be easily converted and must be exchanged 
for Model III versions if the Model III version is not contained in the 
package: 

Mailgram (26-1564) 

Scripsit (26-1505 - Tape) & (26-1563 - Disk) 

Profile (26-1562) 

Microfiles (26-1565) 

Versafile (26-1604) 

K-8 Math (26-1715) 

Micro Movie (26-1903) 

TRS-80 Fortran (26-2201) 

Standard and Poor's Stockpack™ System (26-1507) 

Return to your Radio Shack store or dealer. They will handle the exchange. 



These programs will not run on the Model III and are not available as 
exchange items: 

Space Warp (26-1912)* 

RS-232 Communications Pack (26-1146)* 

Renumber (26-2004) 

Micro Chess (26-1901)* 

RS-Term (26-1147)* 

T-Bug (26-2001)* 

Editor/ Assembler (26-2002)* 

Tiny Pascal (26-2009)* 

Disk Editor Assembler (26-2002)* 

Visicalc (26-1566) available in November as ( 26-1567) 



*Similar programs for the Model III will be available in the future; 
check with your store or dealer for announcements. 
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The following programs are being replaced: 

In-Memory (26-1502) is replaced by (26-15(2)8) available October 30. 
Disk Basic Instruction Course (26-2(2)07) is replaced by (26-2(2)10) available 
December 30. 



Special Notes: 



1. 16K Level I programs are not supported 

2. 4K Level II programs require 16K RAM and Model III BASIC 

3. The following characters are displayed differently on the Model III: 



CODE MOD I MOD III 



91 


I r 

t L 


92 


» 1 N 


93 


- 


i 


94 


- 


A 



These programs reflect the above cosmetic differences: 

Games Pack I (Space Taxi) (26-1805) 

Micro Music (26-1902) 

Level Basic I Instruction Course (26-2003) 

Invasion Force (26-1906) 

Cassette Portfolio (26-1506) 

Budget Management (26-1603) 

Level II Basic Instruction Course - Part I (26-2005), Part II (26-2006) 

K-8 Math (26-1715) 

Casino Games (26-1806) 



4. Disk based programs not listed require use of Convert a Model III TRSDOS command 
to produce Model III compatible disks. 

Editing Programs 

Refer to your Model III Reference Manual for instructions on power-up, loading 
programs, and saving programs. For best results, use a Radio Shack C-20 Certified 
Cassette (26-0301). All Model I software is recorded at "Low" speed (500 baud). 
It will also be helpful to familiarize yourself with BASIC'S "Edit" command. 



Delete program lines by typing each line number and pressing [ENTERI . or by using 
the "Delete" command. Add lines by typing them as shown. Change lines either with 
the Basic Edit command or by retyping the lines as shown. 



Note: The underlined portions of the lines below indicate the portion to be changed. 
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System Name: Tape Mailing List 
Program Name: Tape Mailing List 

Delete lines: 200-290 
Add lines: 200 REM 
Change lines: None 



Stock Number: 26-1503 
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System Name: Cassette Portfolio Analysis Stock Number: 26-1506 

Program Name: Option Program 

Special Note: With these changes, hardcopy reports may be acquired by displaying 

the results and typing anSwhile holding down the ISHIFTI and [II keys.* 

Delete lines: 680,685,686,705 

Add lines: None 

Change lines: 595 

Before : 

595 A*= I NKEY* 5 I FA*= " " ThEN595EL.SE 1 FA$=CHR* (10) THENGOSUB680 

;GOT0595ELSE RETU RN 

After: 

395 A $ = J nkeY* : I FA*= " " THEN595ELSERETURN 
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System Name: Real Estate Analysis — Vol. Ill 
Program Name: Income — Expense 



Stock Number: 26-1573 



Delete lines: 10,20 
Add lines: None 
Change lines: 7000,7010 
Before : 

7 00G) I F_E R R / 2+l=6 THEN7B10 ELSE IF ERR/2+1^11 THEN7B10 ELSE ON_E R RO R_GOTO0 

After: 

7000 IFERRO 1 1 ANDERRO21THENONERRORGOTO0 



Before: 

7010 PRIN T "THE VALUES ENTERED CANNOT BE PROCESSED BY THIS PROGRAM" : PRINT 
SPRINT "PRESS <ENTER> TO CONTINUE " ; : FL= 1 : GOSUB5000 : PR I NT : RESUME 3800 

After: 

7010 PR I. NT "VALUES TOO LARGE - PRESS <ENTER> " 5 : FL=1 : GOSUB5000: PRINT 
: RESUME3S00 

*Your system may use the [S] and (E keys for printing screen information ... see 

your manual. J 
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System Name: Real Estate Analysis — Volume IV Stock Number: 26-1574 

Program Name: Sensitivity Analysis 

Special Note: With these changes, hardcopy reports may be acquired by displaying 

the results and typing an while holding down the ISHSFTj and El keys. 

Delete lines: 45,50,55,170 

Add lines: None 

Change lines: 5, 17, 165, 175, 890 

Before: 

5 G0T045 



After : 

5 CLEAR50:DEFINTI-N:DIM B7< 10) ? E7 < 10) ? E8< 10) ? E9< 10) » C( 10) ? R<3) 

? V < 3 ) ? Q < 3 > ? T 1 ( 3 ) ? T2 < 3 ) ? P < 3 ) ? H < 9 ) ? Rl < 3 ) ? D < 9 ) ? D0 < 9 ) 5 GOTO60 

Before: 

i 7 I F PEEK ( 1 64 1 8 ) =*46THENWD=0 

s I N*=LEFT* (IN*? LEN < I N* ) - 1 ) ELSE I FPEEK ( 1 64 1 8 ) «430RPEEK ( 1 64 1 8 ) =45THENWS=0 

After: 

17 IF PEEK (16418) =46THENWD=0 

: GOTO 1 8 ELSE I FPEEK < 1 64 1 8 ) =430RPEEK ( 1 64 1 8 ) =45THENW5=0 

Before : 

165 PRINT:PRINTTAB<5)5"1. PERFORM A NEW ANALYSIS" : PRINTTAB<5 ) 

;"2. CHANGE INPUT VALUES" : PRINTTAB<5 ); "3. DISPLAY ANALYSIS RESULTS" sK=3 

: I FPEEK < 14312)==255THEN175 

After: 

165 PRINTsPRINTTAB(5) ? " 1 . PERFORM A NEW ANALYSIS" : PRINTTAB( 5 ) 

?"2. CHANGE INPUT VALUES" : PRINTTAB( 5 ) ? "3. DISPLAY ANALYSIS RESULTS" :K=3 

Before : 

175 G0SUB865 sK0=--VAL( IN*) : IFK0<1ORK0>KTHENGOSUB840 SGOSUB840 : GOTO 175. 

SELSECLS5ONK0GOTO50 » 105 ? 180 , 190 

After: 

175 GOSUB865SK0=VAL( IN*) : IFK0<lORK0>KTHENGOSUB840sGOSUB840 5GOTO175 

5ELSECLS5ONK0GOTO5? 105? 180? 190 

Before: 

890 A=PEEK< 16422) :B=PEEK< 16423) : C=FEEK< 16414) sD=PEEK( 16415 ) 

SPOKE 16414? As POKE 16415? \a POKE 16422? Cs POKE 16423? D a RETURN 

After: 

890 RETURN 



System Name: Budget Management Stock Number: 26-1603 

Program Name : Report Program 

Delete lines: 10,20 
Add lines: None 
Change lines: None 



System Name: Level II BASIC Instruction Stock Number: 26-2006 

Course — Part II 
Program Name : Lesson 3 

Delete lines: 6, 580 
Add lines: None 
Change lines: 3, 470 

Before: 

3 CLS: PRINTCHR*<23) :FRINTai35 ? " " °, :FORI=0TO125 :SET< I » 0) :5ET(I»47) :NEXT 
:FORI=0TO47:SET<0» I) : SET (125? I) 8 NEXT s RETURN 

After: 

3 CLS: RETURN 

Before: 

470 L 1 =4 s L2=34 : C 1 =0 : C2= 1 1 : G0SUB6 8 C 1 =37 : C2=37 : G0SUB6 s C2= 1 1 ; C 1 =0 : L 1 = 1 

:L2=10:GO5UB6 s RETURN 

After: 

470 RETURN 

System Name: Level II BASIC Instruction Stock Number: 26-2006 

Course — Part II 
Program Name : Lesson 4 

Delete lines: 6,663 
Add lines: None 
Change lines: 3, 660 
Before: 

3 CLS: PRINTCHR*<23):FRINTai35»'' " S :FORI=0TO125 sSET< 1 , 0) ;SFT< 1 , 47 ) iNEXT 
sFORI=0TO47sSET(0? I) 8 SET < 125 » I) : NEXT 8 RETURN 

After: 

3 CLS: RETURN 

Before: 

660 L 1 =25 s L2=3 1 : C 1 =2 8 C2= 1 08 : G0SUB6 : C 1 =20 : C2=74 8 G0SUB6 : C2=66 : C 1 =48 
5 G0SUB6 s L2=30 s L, 1 =30 s C 1 =20 s C2=48 s G0SUB6 s C 1 =66 s C2=74 s G0SUB6 : G0SUB7 

After: 

660 G0SUB7 



System Name: Casino Game Package Stock Number: 26-1806 

Program Name: Baccarat 

Delete lines: 10,20 

Add lines: None 

Change lines: 220, 280, 290, 940, 1010, 1110, 1150, 1170, 1180 

Before: 

220 CLS : PRINT CHR*<23 ) :PRINTa4» "* BACCARAT*" 
sPRINTa448? "YOUR TRS-80 MILL BE BUSY FOR ONE"? 
: PR I NT "MINUTE SETTING UP GRAPHIC ARRAYS"? 

After: 

220 CLS:PRINTCHR*(23):PRINTa4»»* BACCARAT*" 
:PRINT3456» "SETTING UP GRAPHIC ARRAYS"; 



280 FL=-2:PRINTa75»"H0W MANY PLAYERS (1 TO 12) ";sGO5UB40 
:PX=VAL(IN*) SIFPX<1ORPX>12THEN280ELSEFORN=1TOPX 



After: 

280 FL=-2:PRINTa75»"H0W MANY PLAYERS? < 1-12) " 5 : GOSUB40 

sPX=VAL< IN*) : IFPX<1ORPX>12THEN280ELSEFORN=1TOPX 
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290 FL=8sPRINT:PRINTTAB( 11) "ENTER NAME OF PLAYER JMUMBER "§N; 
SGOSUB40SSN(N)=IN* 



After * 

290 FL=8:PRINTsPRINTTAB( 11) "ENTER NAME OF PLAYER "?N?" "5 

sGOSUB40sSN(N)=IN* 

Before : 

940 CO=0:PP=0:CLS:PRINTail»S7:PRINTSTRING*(64» 191) SPRINT 
:PRINTTAB(9)S2S". UE WILL NOW SHUFFLE EIGHT DECKS OF CARDS " ?S2; 



After : 

940 CO=0:PP=0:CLS:PRINTail»S7:PRINTSTRING*(64 J 191 ) s PRINT 

sPRINTTAB(14)S2?" SHUFFLING EIGHT DECKS OF CARDS " ?S2S 

Before: 

1010 CLSsPRINTail ? S7 

SPRINT"ENTER DECK YOU WOULD LIKE TO REVIEW (1-8 )"; 

:PRINTa977»R2; H PRESS ENTER TO RETURN " ?S2? 

A.f ter * 

1010 'cLS:PRINTaii.S7:PRINT ,, ENTER DECK TO REVIEW ( 1-8 )"; 

:PRINT3977f R2!" PRESS ENTER TO RETURN " ?S2? 



System Name: Casino Game Package (continued) Stock Number: 26-1806 

Program Name: Baccarat 

Before: 

1110 PRINTai2B»CHR*<30)?:PRINTa850»S25" ENTER NAME OF NEW PLAYER 
s FL=8 : GOSUB40 : SN < X5 ) = I N$ : I F I N$= " " THENSN < X5 ) = " PL AYE R " +ST R$ < X 5 > 



After: 

1110 PRINTai2B»CHR*<30) 5 s PRINT3850? S2? " NEW PLAYER ? " ? sFL=8sGOSUB40 

: SN ( X5 ) = IN$ : IF IN*="" THENSN <X5>=" PLAYER" +STR$(X5) 

Before: 

1150 PRINTa869? "CARDS LEFT IN SHOE -> "5 416-CO? 
sPRINTa978?S2?" PRESS ENTER TO RETURN " ?S2? 

After * 

1150 PRINTa869 ? "CARDS LEFT -> "S416-C05 

:PRINTa97S»S2?" PRESS ENTER TO RETURN " ?S2? 

Before: 

U70 CLSs FRINTail , S7 5 : PRINT3256? S2 

?" BANKERS HAND = B / PLAYERS HAND = P ."SPRINT 
SPRINTS2?" MINIMUM BET $ 20.00 / MAXIMUM $ 2> 000. 00. " : PRINT 
SPRINTS25" EXAMPLES PLAYER # 2 BETS ON THE BANKER FOR $ 50." 

After: 

1170 CLS:PRINTail,S7; : PRINT3256* S2 

?" BANKERS HAND = B / PLAYERS HAND = P . » : PRINT 

SPRJ.NTS2?" MINIMUM BET $ 20.00 / MAXIMUM $ 2» 000. 00. ": PRINT 

Before: 

1180 PRINT S2?" ENTER -> / 2B50 / THATS ALL THERE IS TO IT.^| 
:PRINT:PRINTS2 5" PRESS <ENTER> TO RETURN (ENTER <0> FOR HIT OPTION) 
" 5 : INPUTSI :CK«-1 : IFSI="0"THENSF="0" sGOTO670ELSESF=" C" :GOTO670 

After: 

1180 PRINTS PRINT 

SPRINTS2?" PRESS <ENTER> TO RETURN (ENTER <0> FOR HIT OPTION) "5 

: I NPUTS I : CK=- 1 : I FS I - " " THL"NSF= " " : GOT O670EL. SESF= " C " : GOTO670 
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System Name: Dancing Demon Stock Number: 26-1911 

Program Name: Dancing Demon 

Delete lines: 263 
Add lines: None 
Change lines: 600,650 

Before : 

600 CLS : PRINT: PRINT" PREPARE THE TAPE MACHINE TO RECORD AND PRESi 
FNTER" 



After * 

600 CLS: PRINT "LOAD TAPE ( RECORD) 5 ENTER" 



Before: 

650 CLS : PRINT SPRINT" PREPARE THE TAPE MACHINE TO PLAY BACK AND 

RESS ENTER" 

After: 

650 CLS: PRINT"! OAD TAPE (PLAY)* ENTER" 
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